home *** CD-ROM | disk | FTP | other *** search
- /* types */
-
- #define AUTO auto /* automatic variables */
- #define AGLOBAL ; /* global (project-scope) */
- #define MODULE static /* external static (file-scope) */
- #define PERSIST static /* internal static (function-scope) */
- typedef signed char ABOOL; /* 8-bit signed quantity (replaces BOOL) */
- typedef signed char SBYTE; /* 8-bit signed quantity (replaces Amiga BYTE) */
- typedef signed short SWORD; /* 16-bit signed quantity (replaces Amiga WORD) */
- typedef signed long SLONG; /* 32-bit signed quantity (same as LONG) */
- #define elif else if
-
- #define ASM __asm
- #define REG(x) register __ ## x
-
- #ifdef __STORM__
- #define __inline
- #define chip
- #define EXIT_SUCCESS 0
- #define EXIT_FAILURE 20
- AGLOBAL ULONG stcl_d(STRPTR out, ULONG val);
- AGLOBAL ULONG stcl_h(STRPTR out, ULONG val);
- #endif
- #ifdef LATTICE
- #define CONST_STRPTR STRPTR
- #endif
-
- // defined by AmigaOS are: IMPORT, UBYTE, UWORD, ULONG.
-
- #define STATUS_READY 0
- #define STATUS_BUSY 1
- #define STATUS_STOPPING 2
-
- // page 14...
- #define GID_1_LY1 0 // root layout
- #define GID_1_BU1 1 // button 1 (other page)
- #define GID_1_BU2 2 // button 2 (menu)
- #define GID_1_TE1 3 // text editor 1
- #define GID_1_TE2 4 // text editor 1
- #define GID_1_TE3 5 // text editor 1
- #define GID_1_TE4 6 // text editor 1
- #define GID_1_TE5 7 // text editor 1
- #define GIDS_1 GID_1_TE5
-
- // page 41...
- #define GID_4_LY1 0 // root layout
- #define GID_4_ST1 1 // string 1 (modulename.type)
- #define GID_4_ST2 2 // string 2 (functionname)
- #define GID_4_ST3 3 // string 3 (description)
- #define GID_4_ST4 4 // string 4 (type: returncode)
- #define GID_4_ST5 5 // string 5 (type: arg 1)
- #define GID_4_ST6 6 // string 6 (type: arg 2)
- #define GID_4_ST7 7 // string 7 (type: arg 3)
- #define GID_4_ST8 8 // string 8 (type: arg 4)
- #define GID_4_ST9 9 // string 9 (type: arg 5)
- #define GID_4_ST10 10 // string 10 (type: arg 6)
- #define GID_4_ST11 11 // string 11 (type: arg 7)
- #define GID_4_ST12 12 // string 12 (type: arg 8)
- #define GID_4_ST13 13 // string 13 (name: returncode)
- #define GID_4_ST14 14 // string 14 (name: arg 1)
- #define GID_4_ST15 15 // string 15 (name: arg 2)
- #define GID_4_ST16 16 // string 16 (name: arg 3)
- #define GID_4_ST17 17 // string 17 (name: arg 4)
- #define GID_4_ST18 18 // string 18 (name: arg 5)
- #define GID_4_ST19 19 // string 19 (name: arg 6)
- #define GID_4_ST20 20 // string 20 (name: arg 7)
- #define GID_4_ST21 21 // string 21 (name: arg 8)
- #define GID_4_ST22 22 // string 22 (reg: returncode)
- #define GID_4_ST23 23 // string 23 (reg: arg 1)
- #define GID_4_ST24 24 // string 24 (reg: arg 2)
- #define GID_4_ST25 25 // string 25 (reg: arg 3)
- #define GID_4_ST26 26 // string 26 (reg: arg 4)
- #define GID_4_ST27 27 // string 27 (reg: arg 5)
- #define GID_4_ST28 28 // string 28 (reg: arg 6)
- #define GID_4_ST29 29 // string 29 (reg: arg 7)
- #define GID_4_ST30 30 // string 30 (reg: arg 8)
- #define GID_4_IN1 31 // integer 1 (minimum version)
- #define GID_4_BU1 32 // button 1 (other page)
- #define GID_4_BU2 33 // button 2 (menu)
- // page 42...
- #define GID_4_LY2 34 // root layout
- #define GID_4_TE1 35 // text editor 1 (function)
- #define GID_4_TE2 36 // text editor 2
- #define GID_4_TE3 37 // text editor 3
- #define GID_4_TE4 38 // text editor 4
- #define GID_4_TE5 39 // text editor 5
- #define GID_4_TE6 40 // text editor 6
- #define GID_4_TE7 41 // text editor 7
- #define GID_4_TE8 42 // text editor 8
- #define GID_4_TE9 43 // text editor 9
- #define GID_4_TE10 44 // text editor 10
- #define GID_4_TE11 45 // text editor 11
- #define GID_4_TE12 46 // text editor 12
- #define GID_4_TE13 47 // text editor 13
- #define GID_4_TE14 48 // text editor 14
- #define GID_4_TE15 49 // text editor 15
- #define GID_4_BU3 50 // button 3 (other page)
- #define GID_4_BU4 51 // button 4 (menu)
- #define GIDS_4 GID_4_BU4
- // GID_4_ numbers cannot be arbitrarily rearranged.
-
- #define GID_5_LY1 0 // root layout
- #define GID_5_ST1 1 // string 1 (card)
- #define GID_5_ST2 2 // string 2 (manufacturer)
- #define GID_5_ST3 3 // string 3 (product)
- #define GID_5_ST4 4 // string 4 (description)
- #define GID_5_BU1 5 // button 1 (menu)
- #define GID_5_BU2 6 // button 2 (previous card)
- #define GID_5_BU3 7 // button 3 (next card)
- #define GID_5_CB1 8 // checkbox 1 (internal)
- #define GID_5_CB2 9 // checkbox 2 (official)
- #define GID_5_CH1 10 // chooser 1 (precedence)
- #define GID_5_IN1 11 // integer 1 (manufacturer ID)
- #define GID_5_IN2 12 // integer 2 (product ID)
- #define GIDS_5 GID_5_IN2
-
- #define GID_8_LY1 0 // root layout
- #define GID_8_ST1 1 // string 1 (path)
- #define GID_8_ST2 2 // string 2 (log file)
- #define GID_8_ST3 3 // string 3 (capacity)
- #define GID_8_ST4 4 // string 4 (free)
- #define GID_8_ST5 5 // string 5 (total)
- #define GID_8_ST6 6 // string 6 (files)
- #define GID_8_ST7 7 // string 7 (dirs)
- #define GID_8_ST8 8 // string 8 (block size)
- #define GID_8_BU1 9 // button 1 (path ASL)
- #define GID_8_BU2 10 // button 2 (menu)
- #define GID_8_BU3 12 // button 3 (log file ASL)
- #define GID_8_BU4 13 // button 4 (update)
- #define GID_8_BU5 14 // button 5 (stop)
- #define GID_8_BU6 15 // button 6 (root)
- #define GID_8_BU7 16 // button 7 (parent)
- #define GID_8_LB1 17 // listbrowser 1 (duplicates)
- #define GID_8_LB2 18 // listbrowser 2 (path sizes)
- #define GID_8_CB1 19 // checkbox 1 (log to file?)
- #define GID_8_CB2 20 // checkbox 2 (include slack?)
- #define GID_8_CB3 21 // checkbox 3 (find duplicates?)
- #define GID_8_CH1 22 // chooser 1 (view as)
- #define GID_8_FG1 23 // fuel gauge 1 (status)
- #define GIDS_8 GID_8_FG1
-
- #define GID_10_LY1 0 // root layout
- #define GID_10_CB1 1 // checkbox 1
- #define GID_10_CB2 2 // checkbox 2
- #define GID_10_CB3 3 // checkbox 3
- #define GID_10_CB4 4 // checkbox 4
- #define GID_10_CB5 5 // checkbox 5
- #define GID_10_CB6 6 // checkbox 6
- #define GID_10_CB7 7 // checkbox 7
- #define GID_10_CB8 8 // checkbox 8
- #define GID_10_CB9 9 // checkbox 9 (log to file?)
- #define GID_10_CH1 10 // chooser (AmigaOS version)
- #define GID_10_ST1 11 // string 1 (pathname)
- #define GID_10_ST2 12 // string 2 (status)
- #define GID_10_BU1 13 // button 1 (pathname(s) ASL)
- #define GID_10_BU2 14 // button 2 (update)
- #define GID_10_BU3 15 // button 3 (stop)
- #define GID_10_BU4 16 // button 4 (menu)
- #define GID_10_LB1 17 // listbrowser (results)
- #define GIDS_10 GID_10_LB1
-
- #define GID_11_LY1 0
- #define GID_11_ST1 1
- #define GID_11_ST2 2
- #define GID_11_ST3 3
- #define GID_11_ST4 4
- #define GID_11_ST5 5
- #define GID_11_ST6 6
- #define GID_11_ST7 7
- #define GID_11_TE1 8
- #define GID_11_BU1 9
- #define GIDS_11 GID_11_BU1
-
- #define GID_12_LY1 0 // root layout
- #define GID_12_CH1 1 // chooser 1 (icon type)
- #define GID_12_CB1 2 // checkbox 1 (optimize?)
- #define GID_12_CB2 3 // checkbox 2 (planar?)
- #define GID_12_ST1 4 // string 1 (pathname(s))
- #define GID_12_ST2 5 // string 2 (status)
- #define GID_12_BU1 6 // button 1 (pathname(s) ASL)
- #define GID_12_BU2 7 // button 2 (menu)
- #define GID_12_BU3 8 // button 3 (process)
- #define GID_12_BU4 9 // button 4 (stop)
- #define GIDS_12 GID_12_BU4
-
- #define BUG 0
- #define COM 1
- #define ENH 2
-
- #define FONTX 8
- #define FONTY 8
-
- // ASCII values (vanillakey)
- #define TAB 9 /* horizontal tab */
- #define LF 10 /* linefeed */
- #define CR 13 /* carriage return */
- #define ESCAPE 27
- #define QUOTE 34 /* " */
-
- #define FUNCTIONS 12
-
- // Scancodes (rawkey)
- #define SCAN_GRAVE 0
- #define SCAN_1 1
- #define SCAN_8 8
- #define SCAN_W 17
- #define SCAN_E 18
- #define SCAN_R 19
- #define SCAN_T 20
- #define SCAN_I 23
- #define SCAN_O 24
- #define SCAN_P 25
- #define SCAN_S 33
- #define SCAN_D 34
- #define SCAN_F 35
- #define SCAN_G 36
- #define SCAN_H 37
- #define SCAN_L 40
- #define SCAN_C 51
- #define SCAN_V 52
- #define SCAN_B 53
- #define SCAN_N 54
- #define SCAN_PERIOD 57
- #define SCAN_ESCAPE 69
- #define SCAN_UP 76
- #define SCAN_DOWN 77
- #define SCAN_HELP 95
-
- #define GREY 0
- #define BLACK 1
- #define WHITE 2
- #define RED 3
- #define BLUE 4
- #define LIGHTGREY 5
- #define ORANGE 6
- #define YELLOW 7
- #define LIGHTGREEN 14
-
- #define TITLEBARTEXT "Report+ 5.3"
-
- #define FIRSTQUALIFIER 0x61
- #define LASTQUALIFIER 0x67
- #define KEYUP 0x80 /* key release */
-
- #define MN_PROJECT 0
- #define MN_HELP 1
-
- #define IN_NEW 0
- #define IN_OPEN 1
- #define IN_SAVE 3
- #define IN_SAVEAS 4
- #define IN_QUIT 6
-
- #define IN_MANUAL 0
- #define IN_ABOUT 2
-
- AGLOBAL void report1(void);
- AGLOBAL void report_gt_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
- AGLOBAL void report_ra_loop(ULONG gid);
- AGLOBAL void report_exit(void);
- AGLOBAL void report_init(void);
- AGLOBAL void sender(void);
- AGLOBAL void config(void);
- AGLOBAL void newreport(ABOOL display);
- AGLOBAL void openreport(void);
- AGLOBAL void savereport(ABOOL saveas);
- AGLOBAL void loadreport(void);
-
- AGLOBAL void aminet_init(void);
- AGLOBAL void aminet_die(void);
- AGLOBAL void aminet1(void);
- AGLOBAL void aminet_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
- AGLOBAL void aminet_exit(void);
- AGLOBAL void newaminet(ABOOL display);
- AGLOBAL void openaminet(void);
- AGLOBAL void saveaminet(ABOOL saveas);
- AGLOBAL void loadaminet(void);
-
- AGLOBAL void acse1(void);
- AGLOBAL void acse2(void);
- AGLOBAL void acse3(void);
- AGLOBAL void acse_exit(void);
- AGLOBAL void decrypt(void);
- AGLOBAL void acse_loop(ULONG class, struct Gadget* addr, UWORD code);
-
- AGLOBAL void autodoc_init(void);
- AGLOBAL void autodoc1(void);
- AGLOBAL void autodoc2(void);
- AGLOBAL void newautodoc(ABOOL display);
- AGLOBAL void openautodoc(void);
- AGLOBAL void loadautodoc(void);
- AGLOBAL void saveautodoc(ABOOL saveas);
- AGLOBAL void autodoc_loop(ULONG gid);
- AGLOBAL ULONG Hook4Func(struct Hook *h, VOID *o, VOID *msg);
-
- AGLOBAL void manuf1(void);
- AGLOBAL void manuf_loop(ULONG gid);
- AGLOBAL void manuf_config(void);
- AGLOBAL void manuf_die(void);
- AGLOBAL ULONG Hook5Func(struct Hook *h, VOID *o, VOID *msg);
-
- AGLOBAL void iff1(void);
- AGLOBAL void iff_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
- AGLOBAL void iff_config(void);
- AGLOBAL void iff_die(void);
-
- AGLOBAL void eol1(void);
- AGLOBAL void eol2(void);
- AGLOBAL void eolconvert(ABOOL gui);
- AGLOBAL void eol_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
- AGLOBAL void eol_die(void);
-
- AGLOBAL void size_init(void);
- AGLOBAL void size_die(void);
- AGLOBAL void size1(void);
- AGLOBAL void updatesize(void);
- AGLOBAL void size_loop(ULONG gid);
- AGLOBAL void size_exit(void);
- AGLOBAL ULONG Hook8Func(struct Hook *h, VOID *o, VOID *msg);
-
- AGLOBAL void batt_init(void);
- AGLOBAL void batt1(void);
- AGLOBAL void batt_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual, SWORD mousex, SWORD mousey);
- AGLOBAL void batt_open(void);
- AGLOBAL void batt_save(ABOOL saveas);
- AGLOBAL void writebatt(ABOOL verify);
-
- AGLOBAL void files1(void);
- AGLOBAL void files_loop(ULONG gid);
- AGLOBAL void files_init(void);
- AGLOBAL void files_exit(void);
- AGLOBAL void files_die(void);
- AGLOBAL ULONG Hook10Func(struct Hook *h, VOID *o, VOID *msg);
-
- AGLOBAL void agdb1(void);
- AGLOBAL void agdb_loop(ULONG gid);
- AGLOBAL void newagdb(ABOOL display);
- AGLOBAL void openagdb(void);
- AGLOBAL void saveagdb(ABOOL saveas);
- AGLOBAL void loadagdb(void);
- AGLOBAL ULONG Hook11Func(struct Hook *h, VOID *o, VOID *msg);
-
- AGLOBAL void icon1(void);
- AGLOBAL void icon2(void);
- AGLOBAL void iconconvert(ABOOL gui);
- AGLOBAL void icon_loop(ULONG gid);
- AGLOBAL void icon_do(void);
- AGLOBAL void icon_die(void);
- AGLOBAL ULONG Hook12Func(struct Hook* h, VOID* o, VOID* msg);
-
- // rp.c
- AGLOBAL void outputasl(STRPTR pattern);
- AGLOBAL void outputstring(void);
- AGLOBAL void getdate(void);
- AGLOBAL void loop(void);
- AGLOBAL void navigate(void);
- AGLOBAL void rq(STRPTR text);
- AGLOBAL void cleanexit(SBYTE rc);
- AGLOBAL void closewindow(void);
- AGLOBAL void FreeNameNodes(struct List* ListPtr);
- AGLOBAL ABOOL asl(STRPTR pattern);
- AGLOBAL void readordie(STRPTR pathname);
- AGLOBAL void writeout(STRPTR pathname); // remember write() is reserved
- AGLOBAL ABOOL readin(STRPTR pathname);
- AGLOBAL void verynewwindow(SWORD width, SWORD height, STRPTR title, ULONG idcmp);
- AGLOBAL void setgadget(WORD leftx, WORD topy, WORD width, WORD height, STRPTR text,
- ULONG flags);
- AGLOBAL void append(STRPTR pathname);
- AGLOBAL ULONG checkbreak(void);
- AGLOBAL void clearlist(struct List*);
- AGLOBAL ABOOL aboutloop(void);
- AGLOBAL VOID DrawGels(void);
- AGLOBAL void AddNameToTail(struct List* ListPtr, STRPTR name);
- AGLOBAL void drawgadgets(WORD gadgets);
- AGLOBAL void parse(STRPTR terminator);
- AGLOBAL void parsetoend(void);
- AGLOBAL ABOOL saveasl(STRPTR message, STRPTR pattern);
- AGLOBAL void handlemenus(UWORD code);
- AGLOBAL void gadtools(void);
- AGLOBAL void lockscreen(void);
- AGLOBAL void unlockscreen(void);
- AGLOBAL void getfillcolour(void);
- AGLOBAL void multiasl(STRPTR pattern);
- AGLOBAL void convert(ABOOL gui);
- AGLOBAL void checkabort(ABOOL gui);
- AGLOBAL void InitHook(struct Hook* hook, ULONG (*func)(), void* data);
- AGLOBAL ULONG Hook0Func(struct Hook* h, VOID* o, VOID* msg);
- AGLOBAL ULONG ASM hookEntry(REG(a0) struct Hook *h, REG(a2) VOID *o, REG(a1) VOID *msg);
- AGLOBAL void helpabout(void);
- AGLOBAL void clearreactionlist(struct List* ListPtr);
- AGLOBAL void openwindow(void);
- AGLOBAL ABOOL ra_checkbreak(void)
-
- #define REPORTHEIGHT 256 /* page 11 */
- #define REPORTWIDTH 640 /* page 11 */
- #define SENDERWIDTH 442 /* page 12 */
- #define SENDERHEIGHT 124 /* page 12 */
- #define CONFIGWIDTH 320 /* page 13 */
- #define CONFIGHEIGHT 280 /* page 13 */
-
- #define AMINETWIDTH 640 // page 21
- #define AMINETHEIGHT 256 // page 21
-
- #define ACSE1WIDTH 640 /* page 31 */
- #define ACSE1HEIGHT 192 /* page 31 */
- #define ACSE2WIDTH 600 /* page 32 */
- #define ACSE2HEIGHT 126 /* page 32 */
- #define ACSE3WIDTH 600 /* page 33 */
- #define ACSE3HEIGHT 94 /* page 33 */
-
- #define IFF1WIDTH 640 /* page 61 */
- #define IFF1HEIGHT 422 /* page 61 */
-
- #define EOL1WIDTH 540 /* page 71 */
- #define EOL1HEIGHT 198 /* page 71 */
-
- #define BATT1HEIGHT 166 /* page 91 */
- #define BATT1WIDTH 640 /* page 91 */
-
- #define MEDFIELD 32
- #define LONGFIELD 64
- #define VLONGFIELD 254
- #define LONGESTFIELD 16536
-
- AGLOBAL struct SharedStruct
- { ULONG log; // we use GetAttr() on it, so it must be ULONG
- UWORD function;
- TEXT output[VLONGFIELD + 1],
- thisfile[VLONGFIELD + 1], /* <= 254 characters per pathname */
- thatfile[VLONGFIELD + 1],
- pathname[VLONGFIELD + 1];
- };
-
- /* struct NameNode is simply an extended Node structure: a Node structure
- followed by 96 bytes which hold the name of the node. This is so that the
- NameNode structure can hold everything relevant to the node. */
- AGLOBAL struct NameNode
- { struct Node nn_Node;
- TEXT nn_Data[96];
- /* It must be long enough that you can hold a long pathname, longer than
- will fit on the display, because it needs to be accurately compared
- with the built-in list of system files. It needs to be at least as
- long as the longest of those built-in files, plus 5 extra characters
- for the .info extension. */
- };
- AGLOBAL struct PathnameNode
- { struct Node nn_Node;
- TEXT nn_Data[256];
- // Used to hold complete pathnames.
- };
- AGLOBAL struct ReportStruct
- { ABOOL loaded;
- ULONG floppies;
- UWORD agnus, denise, cpu, model, type, severity, subsystem;
- TEXT chipram[5],
- fastram[5],
- hard[MEDFIELD + 1],
- debug[LONGFIELD + 1],
- developer[LONGFIELD + 1],
- expansion[LONGFIELD + 1],
- summary[LONGFIELD + 1],
- ks[6],
- wb[6],
- pv[LONGFIELD + 1],
- pp[LONGFIELD + 1],
- thirdname[MEDFIELD + 1],
- thirdver[MEDFIELD + 1],
- thirdmanuf[MEDFIELD + 1],
- lastname[MEDFIELD + 1],
- firstname[MEDFIELD + 1],
- company[MEDFIELD + 1],
- phone[MEDFIELD + 1],
- email[MEDFIELD + 1],
- refer[VLONGFIELD + 1],
- referid[VLONGFIELD + 1],
- path[VLONGFIELD + 1],
- config[VLONGFIELD + 1],
- textfield[6][4096],
- output[VLONGFIELD + 1];
- };
- AGLOBAL struct AminetStruct
- { TEXT amishort[41], // `short' is a reserved keyword, of course
- uploader[41],
- author[41],
- requires[41],
- version[41],
- distribution[41],
- type[12], // ____/_____
- replaces[41],
- output[VLONGFIELD + 1],
- textfield[4096];
- ULONG maintype,
- subtype;
- };
- AGLOBAL struct AutodocStruct
- { ULONG version;
- TEXT library[MEDFIELD + 1], /* eg. workbench.library */
- funcname[MEDFIELD + 1],
- description[VLONGFIELD + 1],
- output[VLONGFIELD + 1],
- function[4096],
- example[4096],
- notes[4096],
- bugs[4096],
- seealso[4096];
- struct
- { TEXT name[MEDFIELD + 1],
- type[MEDFIELD + 1],
- reg[MEDFIELD + 1],
- desc[4096];
- } var[9];
- };
- AGLOBAL struct IFFStruct
- { ABOOL cd, rkm, obsolete, private, proposal, reserved, standard, unregistered, raw;
- TEXT pathname[VLONGFIELD + 1];
- };
- AGLOBAL struct AGDBStruct
- { TEXT title[MEDFIELD + 1], // `short' is a reserved keyword, of course
- publisher[MEDFIELD + 1],
- players[MEDFIELD + 1],
- hdinstallable[MEDFIELD + 1],
- compatibility[MEDFIELD + 1],
- gametype[MEDFIELD + 1],
- output[VLONGFIELD + 1],
- textfield[4096];
- };
- AGLOBAL struct IconStruct
- { ULONG optimize, planar, // these must be ULONG not ABOOL nor BOOL!
- type; // this must be ULONG not UWORD!
- };
-